Dim ws As Workspace
Dim DB As Database
Dim Archivo As Recordset
____________________________________________________________________________
Private Sub Command1_Click()

Dim Libro As Excel.Workbook
Dim Hoja As Excel.Worksheet
' Dim i%, fila%
' Dim NombreHoja As Integer

'On Error GoTo errorcito

Set Libro = GetObject("h:\app\cts\hojas\CTS Modelo vacio.xls")

Set ws = DBEngine.Workspaces(0)
Set DB = ws.OpenDatabase("h:\app\cts\hojas", False, False, "FoxPro 2.6;")
' Set Archivo = DB.OpenRecordset("hojas.dbf", dbOpenDynaset)

' Do While Not Archivo.EOF

'    NombreHoja = Trim(Archivo!Nombre)

'    Libro.Sheets(NombreHoja).Select
'    Set Hoja = Libro.Worksheets(NombreHoja)
        
'    Hoja.Cells(4, 2) = "Pregunta : " & Trim(Archivo!Pregunta)
        
'    Hoja.Cells(11, 3) = Trim(Archivo!tit1)
'    Hoja.Cells(12, 3) = Trim(Archivo!tit2)
'    Hoja.Cells(13, 3) = Trim(Archivo!tit3)
'    Hoja.Cells(14, 3) = Trim(Archivo!tit4)
'    Hoja.Cells(15, 3) = Trim(Archivo!tit5)
    
'    Archivo.MoveNext
' Loop

Set Archivo = DB.OpenRecordset("L000001.dbf", dbOpenDynaset)

Do While Not Archivo.EOF

'  NombreHoja = Trim(Archivo!Pregunta)

   Libro.Sheets("CLIENTES").Select
   Set Hoja = Libro.Worksheets(CLIENTES)
        
'  oSheet.Range("A1").CopyFromRecordset rs
   oSheet.Range("A1").CopyFromRecordset
  
'    Hoja.Cells(11, 4) = Trim(Archivo!M1)
'    Hoja.Cells(12, 4) = Trim(Archivo!M2)
'    Hoja.Cells(13, 4) = Trim(Archivo!M3)
'    Hoja.Cells(14, 4) = Trim(Archivo!M4)
'    Hoja.Cells(15, 4) = Trim(Archivo!M5)
    
'    Hoja.Cells(17, 4) = Trim(Archivo!Vacios)
    
   Archivo.MoveNext
Loop

' Set DB = ws.OpenDatabase("c:\app\hojas", False, False, "FoxPro 2.6;")
' Set Archivo = DB.OpenRecordset("sec.dbf", dbOpenDynaset)

' Do While Not Archivo.EOF

'  NombreHoja = Trim(Archivo!Pregunta)

'   Libro.Sheets(NombreHoja).Select
'   Set Hoja = Libro.Worksheets(NombreHoja)
        
'   Hoja.Cells(6, 2) = Trim(Archivo!Data)
    
'   Archivo.MoveNext
' Loop

Libro.Sheets(1).Select
Libro.Windows.Application.Visible = True
Hoja.Application.Windows(1).Visible = True

'Libro.SaveAs GetParam("Salida", NOM_COMPANIA) & "F" & Str(TabAnexos.Tab) + 1 & GetParam("Abreviado", NOM_COMPANIA) & Mid(txtFecha, 1, 2) & Mid(txtFecha, 4, 2) & Mid(txtFecha, 7)
Libro.SaveAs "CTS" & L000001
    
'    .SaveAs filename:=Directorio & "\" & "unidos.xls"
'    .Close
    
    
Unload Me
End Sub

